Vytvorenie aliasu cez Session

Otázka od: bugi

26. 11. 2002 1:43

Zdar vsetci!

Na Forme mam komp. Session, vsetky vlastnosti mam nadstavene nasledovne:

AutoSessionName True
Active True

v udalosti OnCreate hlavneho Formu mam:

begin
  Session.AddStandardAlias('Blok', 'D:Program Files\Gardap\data',
'Paradox' );
  Session.SaveConfigFile;
end;

a nefunguje mi to!

Neviete niekto preco ????

A co sa stane, ked spominany alias uz existuje, nastane chyba, alebo co ...?

Dik,
          Alex

Odpovedá: Petr Brant

26. 11. 2002 10:14

Pouzivam toto, ale nepsal jsem to. Je to ale bez ulozeni do konfiguracniho
souboru:

function SetBDEEnvironment: boolean;
{ nastavi parametry prostredi pro BDE - Alias, adresare atd. }
var MyParams: TStringList;
begin
  Session.Active:= false; { uzavri session }
  Session.ConfigMode:= cmAll;
  if not Session.IsAlias('ITR_CISELNIKY') then
    Session.AddStandardAlias('ITR_CISELNIKY',G2.DirDB_General,'PARADOX');
  if not Session.IsAlias('ITR_EMPTY') then
    Session.AddStandardAlias('ITR_EMPTY',G2.DirDB_Empty,'PARADOX');
  MyParams:= TStringList.Create;
  MyParams.Clear; { uprav adresar u databaze ciselniku }
  MyParams.Add ('PATH='+G2.DirDB_General);
  Session.ModifyAlias ('ITR_CISELNIKY',MyParams);
  MyParams.Clear; { uprav adresar u prazdnyh databazi }
  MyParams.Add ('PATH='+G2.DirDB_Empty);
  Session.ModifyAlias ('ITR_EMPTY',MyParams);
  MyParams.Free;
  Result:= true;
end;

RNDr. Petr Brant [brant@dcomm.cz]
D&COMM s.r.o.
Korunovační 6
Praha 7
tel. +420724007234

Subject: Vytvorenie aliasu cez Session

Na Forme mam komp. Session, vsetky vlastnosti mam nadstavene
nasledovne:

AutoSessionName True
Active True

v udalosti OnCreate hlavneho Formu mam:

begin
   Session.AddStandardAlias('Blok', 'D:Program Files\Gardap\data',
'Paradox' );
   Session.SaveConfigFile;
end;

a nefunguje mi to!